home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / dev / amos / moreusel.lha / Xor.AMOS / Xor.amosSourceCode
AMOS Source Code  |  1997-04-18  |  338b  |  24 lines
  1. Screen Open 0,320,200,2,0
  2. Curs Off 
  3. Palette 0,$FFF
  4. Gr Writing 2
  5. For A=0 To 319
  6.   Draw A,0 To 319-A,199
  7. Next 
  8. For A=0 To 199
  9.   Draw 0,A To 319,199-A
  10. Next 
  11. Wait Key 
  12. Cls 
  13. Repeat 
  14.   SA=S
  15.   Repeat 
  16.     S=Rnd(8)+2
  17.   Until S<>SA
  18.   For A=0 To 319 Step Rnd(8)+2
  19.     Draw A,0 To 0,A
  20.     Draw 319-A,0 To 319,A
  21.   Next 
  22.   Wait 10
  23. Until Inkey$<>""
  24. Cls